﻿Public Class MuhKucukYaslilikOzet
	Inherits ProcessReport

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Text = "Küçük Yaşlılık Ödemeleri Bölgelere Göre Dağılım"
				InitialHelp = "Döküm almak tarih aralığını girin."
				AddDateRange("@Tarih", "nl", "", "", "Başlangıç tarihini girmelisiniz.", "Bitiş tarihini girmelisiniz.")
			Case EventType.ValidateForm
				If Check("Tarih1", Year(Input("Tarih1")) <> Year(Input("Tarih2")), "Tarihler aynı yıl içinde olmalıdır.") Then Exit Sub
				Rs = Muhasebe.KucukYaslilik.Ozet(Remote, Input("Tarih1"), Input("Tarih2"))
				e.Result = True
			Case EventType.ReportHeader
				Report.PrintHeader("KÜÇÜK YAŞLILIK ÖDEMELERİ ÖZETİ")
			Case EventType.PageHeader
				Report.PrintPageHeader("Tarih : " & DMY(Input("Tarih1")) & " - " & DMY(Input("Tarih2")), "Döküm Tar. : " & DMY(Today))
				Report.SetColumns("Hesap No.;Hesap Adı;Tutar", "1;4;1", "c;l;m")
			Case EventType.ReportDetail
				Do Until Rs.EOF
					Report.Print(Rs("hesapno"), Rs("hesapadi"), Rs("tutar"))
					Rs.MoveNext()
				Loop
				Report.PrintTotal("", "", Rs.Sum("tutar"))
		End Select
	End Sub

End Class
